10 REM BASIC ASCII LISTING (ON DISK) TO INTERGER BASIC COMPILER CODE CONVERTER
100 INPUT"[147]NAME ";N$
110 OPEN8,8,8,N$
120 OPEN9,8,9,"E "+N$+",P,W"
130 GET#8,B$,B$
140 GET#8,B$
145 IFB$<>" "AND (B$<"1"ORB$>"9") THENPRINT#9,CHR$(13)"!":CLOSE8:CLOSE9:GOTO220
150 PRINT#9,CHR$(13);:PRINT:IF B$<>" "THEN GOTO 165
160 GET#8,B$
165 IFB$<>" "THENPRINT#9,B$;:PRINTB$;:GOTO160
170 PRINT#9,CHR$(13);
180 GET#8,B$:IFB$=":"THENB$="[193]"
190 IFB$=","THENB$="[218]"
200 IFB$=CHR$(13)THENGOTO140
210 PRINT#9,B$;:PRINTB$;:GOTO180
220 END